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ABSTRACT 

A  data  bank  for  Doppler  ultrasonic  bubble  flow  data 
obtained  during  and  following  decompression  of  divers  has 
been  established  for  the  purpose  of  data  storage  and  sub¬ 
sequent  coaputer  analysis.  Each  dive  is  characterized  by 
52  paraaeters  selected  for  future  computer  correlation 
studies.  For  each  of  12  of  the  parameters,  a  table  has 
been  provided  into  which  entries  may  be  made  as  the  data 
bank  grows.  Data  are  entered  into  the  data  bank  via  a 
specified  Data  Bank  Form.  A  program  entitled  DEV  is  used 
f°r  listing  and  verification  of  data  bank  files;  another 
entitled  SEV  is  used  to  calculate  an  index  of  severity  of 
decompression.  A  listing  and  example  are  provided  for 
each  of  the  programs,  SEV  and  DEV.  The  program,  SEV,  is 
the  first  of  many  possible  applications  programs  utilizing 
the  data  bank.  The  use  of  the  data  bank  and  the  application 
of  SEV  in  an  experimental  program  involving  80  man-dives  is 
described. 


INTRODUCTION 


Doppler  ultrasonic  monitoring  of  the  precordlal  region  of 
divers  has  proven  to  be  of  considerable  benefit  for  the  evaluation 
of  diver  decompression  stress  In  subsaturation  dives  (Lagrue  et  al, 
1978)  and  saturation  dives  (Masurel  et  al,  1978). 

In  order  to  better  understand  the  significance  of  Doppler 
ultrasonic  measurements  and  the  effect  of  various  dive  parameters 
on  decompression  stress,  it  is  necessary  to  perform  correlation 
studies  of  the  Doppler  results  with  such  parameters  as  incidence 
of  decompression  sickness,  decompression  models,  characteristics 
of  divers,  etc.  These  studies  are  facilitated  by  the  establishment 
of  a  computerized  data  bank  suitable  for  data  storage  as  well  as 
computer  analysis. 

This  report  describes  the  Doppler  Ultrasonic  Data  Bank  (DUDB) 
established  at  the  Centre  d' Etudes  et  de  Recherches  Techniques 
Sous-Marines  (CERTSM),  France,  during  the  posting  of  Dr.  Kisman 
from  the  Defence  and  Civil  Institute  of  Environmental  Medicine 
(DCIEM),  Canada.  A  joint  data  base  has  been  established  for  use 
by  CERTSM  and  DCIEM  personnel  to  increase  the  amount  of  accessible 
data  and  to  better  exploit  the  inherent  possibilities. 


DESCRIPTION  OF  DATA  BANK 

It  has  been  customary  to  monitor  ultrasonic  data  aurally  with 
headphones  and  assign  a  grade  according  to  Spencer's  classification 
code  (Spencer,  1974).  A  new  code,  the  KM  code,  has  recently  come 
into  use  (Kisman  et  al,  1976a).  This  code  provides  more  detailed 
information  about  the  bubble  flow;  furthermore,  it  may  be  evaluated 
by  means  of  aural  monitoring  or  computer  signal  analysis.  Bubble 
grades  equivalent  to  those  in  Spencer's  code  are  provided  for  the 
KM  code  values  in  a  correlation  table  (Kisman  et  al,  1978a).  Hence 
precordlal  Doppler  ultrasonic  results  may  be  expressed  in  the  form 
of  3  digit  KM  code  values  and/or  1  digit  bubble  grades. 

In  addition  to  the  ultrasonic  results,  the  data  bank  contains 
many  other  dive  parameters  useful  for  correlation  studies.  Before 
these  parameters  are  entered  into  the  data  bank,  they  are  written 
on  a  Data  Bank  Form  by  diving  personnel  during  the  decompression 
(see  example.  Appendix  I). 

The  following  is  a  description  of  all  parameters  in  the  data 
bank.  They  are  numbered  and  ordered  as  in  the  Data  Bank  Form.  The 
classification  hierarchy  is  illustrated  in  Fig.  1.  For  each  of  12 
parameters,  a  table  has  been  provided  in  which  entries  may  be  added 
as  the  data  bank  grows. 
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1)  File  No:  The  number  used  to  identify  the  files  (see  Fig. 

1  and  Table  I) .  Each  diver  in  each  dive  la  assigned  a 
file  number. 

2)  File  Name:  The  name  used  by  the  computer  to  identify  and 
access  the  file.  It  must  consist  of  5  alphanumeric  charac¬ 
ters. 

3)  Mo  of  Dive  Series;  The  number  designating  the  collection 
of  related  divea  which  have  been  grouped  together  to  form 
a  8erles  (see  Fig.  1  and  Table  I) . 

4)  Marne  of  Dive  Series:  The  name  of  the  dive  series  identi¬ 
fied  by  parameter  //3  (used  only  as  aid  for  reader,  not  for 
computer  accessing  —  see  Table  I). 

5)  Profile  Mo;  The  number  designating  the  dive  profile  or 
table  followed  for  the  dive  identified  by  parameter  #7 
(see  Table  II). 

6)  Name  of  Profile:  The  name  describing  the  dive  profile  or 
table  Identified  by  parameter  #5  (used  only  as  aid  for 
reader  —  see  Table  II) .  It  may  contain  up  to  45  alpha¬ 
numeric  characters. 

7)  Dive  No;  The  number  designating  the  particular  dive  (see 
Fig.  1  and  Table  I). 

8)  Name  of  Dive:  The  name  normally  assigned  by  the  diving 
personnel  to  describe  the  dive  identified  by  parameter  #7 
(used  only  as  eld  for  reader) .  It  may  contain  up  to  45 
alphanumeric  characters. 

9)  Diver  No;  The  number  designating  the  diver  (see  Table  III). 

10)  Name  of  Diver:  The  name  of  the  diver  with  surname  first 
(used  only  as  aid  for  reader  —  see  Table  III) .  It  may 
contain  up  to  45  letters. 

11)  Associated  DUDB  Files?  The  DUDB  file  names  for  other  di¬ 
vers  who  participated  in  the  same  dive  (l.e.f  having  the 
same  Dive  No). 

12)  Auxllliary  Files:  Other  data  files  (not  DUDB  files) 
containing  pertinent,  auxllliary  information  such  as  pres¬ 
sure  and  gas  composition  measured  during  the  dive. 

13)  Time  of  Day:  The  time  of  day  in  "hours,  min"  (e.g. ,  "18, 
36")  corresponding  to  time  zero  of  the  dive  timer. 


f 


3 


14)  Date  of  Dive;  Has  the  form  "day,  month,  year"  (e.g.,  "4, 

1,  78''  or  "24,  10,  77"). 

15)  Weight:  The  diver's  weight  in  kilograms  (kg). 

16)  Height:  The  diver's  height  in  meters  (m) . 

17)  Fat  Comp:  The  fat  composition  of  the  diver.  The  scale 
has  yet  to  be  established. 

18)  Type  of  Dive:  The  type  of  dive  may  be  classified  according 
to  existing  or  new  entries  in  Table  IV. 

19)  Environment :  The  environment  of  the  dive  may  be  classified 
according  to  existing  or  new  entries  in  Table  V. 

20)  Temperature :  The  temperature  experienced  by  the  diver  (in 

21)  Type  of  Work:  The  nature  of  the  work  performed  by  the  diver 
may  be  identified  according  to  existing  or  new  entries  in 
Table  VI. 

22)  Quantity  of  Work:  The  quantity  of  work  performed  by  the 
diver  at  the  bottom  depth  (in  kwatt-hours) . 

23)  Tape  Recorder:  The  number  of  the  tape  recorder  used  to 
tape  the  ultrasonic  data  (see  Table  VII) . 

24)  Tape  No:  The  number  designating  the  tape  on  which  the 
ultrasonic  data  is  recorded  (see  Table  VIII) . 

25)  Depth  Code:  The  code  designating  the  units  used  for  all 
depth  measurements  (see  Table  IX) . 

26)  Bottom  Depth:  The  depth  at  bottom  of  the  dive. 

27)  Time  Code:  The  code  designating  the  format  used  to  express 
time  in  all  cases  (see  Table  X). 

28)  Time  Prof  Alt:  The  time  from  the  dive  timer  at  which  the 
profile  designated  by  Profile  No.  was  altered  due  to  de¬ 
compression  sickness,  excessive  bubbles,  etc. 

29)  T(Beg) :  The  time  from  the  dive  timer  Indicating  when 
the  dive  started.  It  is  normally  set  equal  to  zero. 

30)  T (Arrival) :  The  time  from  the  dive  timer  indicating 
arrival  at  bottom  of  dive. 
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31)  T(Beg  Decomp):  The  time  from  the  dive  timer  Indicating 
the  beginning  of  the  decompression. 

32)  T(End  Decomp):  The  time  from  the  dive  timer  Indicating 
the  end  of  the  decompression. 

33)  Comments:  Special  comments  about  the  dive  may  be  entered 
here. 

3A)  Monitor  Nos:  The  numbers  designating  the  monitors  who 
acqulaltioned  the  ultrasonic  data  and  evaluated  the  code 
values  or  bubble  grades  in  the  list  of  results  on  the 
second  page  of  the  Data  Bank  Form.  The  order  of  the  moni¬ 
tor  nunfoers  is  the  same  as  used  in  the  list  of  results. 

35)  Total  No  of  Evaluations:  The  number  of  evaluations  in 
the  following  list  of  results  multiplied  by  the  number  of 
monitors. 

36)  Eval  No:  The  number  of  the  evaluation  performed  by  a 
monitor  for  a  particular  section  of  data.  When  all  of 
the  evaluations  made  by  one  monitor  are  listed,  the 
Eval  No.  is  reset  to  1  for  the  results  of  the  next 
monitor. 

37)  D(R) :  The  bubble  grade  or  code  value  assigned  by  the 
monitor  for  the  section  of  data  corresponding  to  the 
diver  at  rest.  If  no  assignment  was  made  because  of 
bad  data,  999  is  entered. 

38)  D(M):  This  is  the  same  as  D(R)  but  is  used  for  the  section 
of  data  corresponding  to  the  diver  performing  a  specified 
movement . 

39)  Time:  The  time  from  the  dive  timer  at  which  the  ultrasonic 
monitoring  of  the  diver  was  performed. 

AO)  Depth:  The  depth  at  which  the  ultrasonic  monitoring  of  the 
diver  was  performed. 

Al)  Tape  Rest:  The  number  on  the  counter  of  the  tape  recorder 
at  which  occurs  the  beginning  of  the  data  for  the  diver  at 
rest. 

A2)  Tape  Move:  The  numbers  bn  the  counter  of  the  tape  recorder 
at  which  begins  the  data  following  diver  movement  (for  up 
to  three  movements). 
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43)  WD(R) ;  A  whole  between  0  and  4  (maximum  weight)  which  la 
determined  by  the  monitor  as  the  weight  to  be  assigned  to 
the  result  D(R)  based  on  the  quality  of  the  signal  on  the 
recording. 

44)  WD(M) :  This  is  the  same  as  WD(R)  but  applies  to  the  result 
D(M) . 

4.5)  So  of  Incidences  of  D.S.:  The  number  of  times  the  diver 

experiences  decompression  sickness.  If  no  report  is  avail¬ 
able  as  to  whether  or  not  D.S.  occurred,  this  number  is  set 
at  "-1". 

46)  D.S.  No:  The  number,  starting  at  "1",  designating  in  order 
of  appearance  the  incidence  of  decompression  sickness. 

47)  Type:  The  type  of  decompression  sickness  as  listed  in  Table 
XII. 

48)  Severity:  A  number  describing  the  severity  of  the  sickness. 
The  scale  is  yet  to  be  determined  but  it  must  consist  of  in¬ 
teger  numbers  (e.g.,  0  to  10). 

49)  T (Start) :  The  time  from  the  dive  timer  indicating  the 
start  of  the  decompression  sickness. 

50)  P(Start) :  The  depth  of  the  commencement  of  the  decompres¬ 
sion  sickness. 

51)  T(End) :  The  time  according  to  the  dive  timer  of  the  end 
of  the  decompression  sickness. 

52)  P(End):  The  depth  of  the  end  of  the  decompression  sick¬ 
ness. 

This  data  bank  does  not  contain  the  actual  pressure  versus 
time  and  gas  composition  measurements  that  may  be  obtained  in 
other  data  banks  such  as  CANDID  (Kuehn  and  Sweeney,  1973)  in  use 
at  DCIEMw  However,  the  profile  or  dive  table  used  to  control  the 
dive  is  identified  in  DUDB  by  a  number  and  a  name. 

There  are  currently  80  DUDB  files  in  the  data  bank.  These 
files,  which  have  names  D0001  to  D0080,  constitute  the  dive  series 
"Doris  France  -  Amer  Profile  Comparison"  (Lagrue  et  al,  1978). 
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PROCEDURE 

A)  During  the  dive,  the  diving  personnel  fill  out  the  Data  Bank 
Form  in  a  manner  similar  to  that  shown  in  Appendix  I.  Where 
necessary,  the  bubble  grades  or  code  values  may  be  evaluated 
(from  the  recording  of  the  ultrasonic  data)  and  entered  in 
the  Data  Bank  Form  following  the  dive. 

The  Data  Bank  Form  shown  in  Appendix  I  contains,  as  an  example, 
the  data  entered  for  the  first  file,  D0001,  in  DUDB.  The  data 
format  required  is  indicated  on  the  Form.  The  rules  for  enter¬ 
ing  the  data  are  as  follows: 

a)  Integers  are  indicated  by  the  letter  "I".  For  example, 

"313"  means  that  three  Integer  numbers  (separated  by 
commas)  containing  a  maximum  of  3  characters  each  may  be 
used.  For  the  PDP-11/ 10  computer  the  maximum  value  is 
32767  for  an  Integer  number. 

b)  Real  numbers  are  indicated  by  the  letter  F.  For  example, 
"F7.2"  means  that  a  real  number  must  be  used  (l.e.,  con¬ 
taining  a  decimal  point),  that  the  maximum  number  of  charac¬ 
ters  including  the  decimal  point  is  7,  and  that  at  most  two 
characters  after  the  decimal  point  may  be  used. 

c)  The  letter  "A"  Indicates  that  numbers,  letters  or  symbols 
may  be  used  in  free  format.  For  example,  "5A1"  means  that 
five  characters  may  be  entered. 

d)  For  items  11  and  12  on  the  Data  Bank  Form,  only  one  charac¬ 
ter  can  be  entered  in  each  space  provided.  The  file  names 
are  separated  by  a  space  or  a  comma. 

e)  If  there  is  no  data  available  for  a  given  parameter,  one 
enters  0  for  a  parameter  of  the  form  "I",  0.  for  a  para¬ 
meter  of  the  form  "F",  and  blank  spaces  for  a  parameter 
of  the  form  "A". 

f)  After  the  data  has  been  entered  for  the  first  monitor  in 
items  36  to  44,  it  is  not  necessary  to  repeat  the  informa¬ 
tion  in  items  39  to  42  for  subsequent  monitors. 

g)  When  necessary,  appropriate  additions  may  be  made  to  Tables 


B)  Following  the  dive,  the  data  from  the  Data  Bank  Form  are  entered 
into  a  computer  via  a  teletype  and  stored  on  computer  media  such 
as  floppy  disks  or  magnetic  tapes.  The  data  from  one  Data  Bank 
Form  constitute  one  DUDB  file. 
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Currently,  the  data  are  entered  via  a  teletype  into  a  DEC  PDP- 
11/10  computer  and  stored  on  floppy  disks  in  a  DEC  RX-01  floppy 
disk  system.  The  operating  software  used  is  DEC  RT-11  and  the 
EDIT  program  provided  with  this  software  is  used  for  the  crea¬ 
tion  of  the  DUDB  files.  Approximately  240  DUDB  files  can  be 
stored  on  one  floppy  disk. 

The  rules  for  entering  the  data  into  a  DUDB  file  are  as  follows: 

a)  The  data  are  entered  line  by  line  using  the  data  type  indica¬ 
ted  on  the  Data  Bank  Form  and  separating  each  item  on  a  line 
with  commas.  For  the  first  five  lines  on  the  Data  Bank  Form, 
the  second  item  must  be  entered  on  a  separate  line.  Items  ll 
and  12  may  be  separated  by  either  a  blank  or  a  comma. 

b)  The  EDIT  program  in  the  DEC  RT-11  operating  software  allows 
one  to  enter  an  integer  number  without  regard  to  location 
within  the  field  allocated  even  if  it  is  not  followed  by  a 
comma.  For  example,  the  number  "4"  to  be  entered  for  para¬ 
meter  #35  may  be  typed  in  the  first  space  on  the  line  without 
a  following  comma. 

Two  commas  together  mean  0  for  a  parameter  of  type  I 

or  0.  for  a  parameter  of  type  F.  If  following  an  item  on  a 
line  the  rest  of  the  items  are  0  or  0.  the  rest  of  the  line 
may  be  left  blank. 

c)  Bubble  grades  with  or  symbols  are  entered 
according  to  the  following  table: 


Bubble  grade 

0 

i- 

1 

1+ 

2- 

2 

2+ 

3- 

3 

3+ 

D 

H 

4+ 

Data  entered 

D 

10 

B 

11 

20 

2 

.... 

21 

30 

3 

31 

40 

41 

C)  The  contents  of  the  new  DUDB  file  may  be  verified  by  running  the 
program  DEV  which  is  described  below.  With  DEV,  one  may  list  a 
single  DUDB  file  or  a  series  of  files  one  after  the  other.  To 
list  a  series  v  DUDB  files,  another  type  of  file,  a  "file  file" 
is  created  using,  once  again,  the  EDIT  program.  The  file  file 
consists  of 

a)  an  integer  number,  on  the  firt.t  line,  which  Indicates 
the  number  of  DUDB  file  names  in  the  file  file. 

b)  the  DUDB  file  names  (one  per  line)  up  to  a  maximum 
of  100  lines. 
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D)  The  DUDB  files  may  be  used  In  application  programs  such  as  SEV 
(which  la  described  below)  to  calculate  the  Index  of  severity  or 
perform  correlation  studies. 
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PROGRAM  DEV 

The  computer  program  for  data  evaluation,  DEV,  is  used  to  list 
and  verify  the  data  In  the  DUDB  files.  It  is  written  in  Fortran  to 
be  compatible  with  scientific  applications  programs  (see  below)  for 
which  Fortran  is  cononly  used. 

An  example  showing  how  DEV  may  be  used  is  provided  in  Appendix 
II.  In  Part  a),  the  data  are  shown  exactly  as  they  were  typed  in  on 
the  teletype  from  the  Data  Bank  Form  to  create  DDDB  File  D0001  using 
the  EDIT  program. 

Then  the  program,  DEV,  is  run  as  shown  in  Part  b)  of  Appendix 
II.  The  instructions  for  running  the  program  are: 

a)  The  computer  requests  "Nusiber  of  file  files?".  This  is 
the  number  of  file  files  which  are  described  in  Part  C  of 
PROCEDURE.  For  example,  one  may  wish  to  use  one  file  file 
named  FF1  containing  DUDB  Files  D0001  to  D0100  and  a  second 
file  file  named  FF2  containing  DUDB  Files  D0101  to  DO 140. 

In  this  example,  one  would  type  "2+"  where  'V  means 
teletype  carriage  "return".  If  only  a  single  DUDB  file 
is  required,  no  entry  is  made  (one  types  "+") . 

b)  If  an  entry  la  made  to  the  first  question,  the  second 
question  is  "FILE  FILE".  In  the  above  example,  one 
types  "FF1+". 

c)  If  no  entry  is  made  to  the  first  question,  the  second 
question  is  "DIVE  FILE:".  As  an  example,  one  may  type 
"D000J ♦"  to  list  DUDB  File  D0001. 

Finally,  in  Part  c  of  Appendix  II,  there  is  a  complete  listing 
of  the  program  DEV. 


PROGRAM  SEV 

An  applications  program,  SEV  evaluation) ,  has  been  written 
in  Fortran  to  evaluate  the  index  of  severity  of  decompression,  S 
(Klsman  et  al,  1978),  using  the  ultrasonic  data  stored  in  a  DUDB 
file. 


The  general  expression  for  Che  Index  of  severity  is 


<a,f) - ^ -  Z{( d“  ±  +  d“  ±_l)(t1  -  t  >f(p  p  )} 

(0.02) (4°) (tj  _  tQ)  i«l  y,±  y,t  1  1  11  111 


where  the  index  i  represents  the  measurement  number  for  the 
measurements  of  bubble  grade,  d  ^  (i  *  0  indicates  the  be¬ 
ginning  of  decompression,  1  -  ^indicates  the  final  measurement). 


d  .  is  the  bubble  grade  measured  (for  y  m  r,  the  diver  is  at 
reAt  during  the  measurement,  for  y  m  m  the  diver  performs  a 
specified  movement) , 


t^  is  the  time  at  which  measurement  number  i  was  made,  and 

p^  is  the  depth  at  which  measurement  number  i  was  made. 

This  equation  represents  the  integration  over  time  of  the  bubble  grades 
d  (having  exponent  a  as  an  experimentally  determined  parameter) .  The 
denominator  Is  a  normalization  factor.  The  factor,  f(p,,Pj_j),  takes 
into  account  the  fact  that  the  significance  of  the  bubble  grades  may  be 
functions  of  the  depth  at  which  they  are  measured.  Experimental 
evidence  (Klsman  et  al,  1978)  indicates  that  the  factor  f  may  be  set 
equal  to  1  for  air  dives  so  that  SY(a,f)  =  S^,(a). 

As  an  illustration  of  the  use  of  SEV  for  computing  the  index 
of  severity,  S  (a),  an  example  of  its  use  and  a  complete  listing  of 
SEV  have  been  provided  in  Appendix  III.  In  Para  a)  of  Appendix  III, 

SEV  is  run  using  the  DUDB  File  00001.  The  computer  output  is  in 
the  form  of  S(R,a)  or  S(M,a)  where  y  ■  R  defines  the  situation 
where  the  diver  is  at  rest  and  y  ■  M  indicates  that  the  diver  has 
performed  a  specified  movement.  A  complete  set  of  results  for  which 
the  parameter  a  varies  between  1  and  7  is  provided  for  each  monitor. 
Instructions  for  the  use  of  SEV  are  as  follows: 

a)  In  response  to  the  first  question,  "type  1  for  data 
listing:",  one  types  "H"  to  obtain  a  data  listing 
in  a  format  identical  to  that  obtained  with  the 
program,  DEV.  One  types  "  "  if  no  data  listing  is 
desired . 

b)  The  second  number  required  is  the  time  code  as  defined 
in  Table  X  which  designates  the  format  used  for  the 
second  number,  the  time  range.  The  time  range  is  the 
maximum  time  after  the  beginning  of  decompreasion 
within  which  the  ultrasonic  data  in  the  DUDB  file  are 
used  to  calculate  S. 

c)  The  subsequent  questions  are  identical  to  thoae  posed 
in  DEV. 
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The  DUDB  date  bank  and  the  program,  SEV,  were  used  in  an 
experimental  program  to  compare  bounce  dive  tables  of  the  Ministers 
Prancais  du  Travail  with  corresponding  American  surface  decompress 
s ion  tables  having  the  same  bottom  depth  and  time  at  bottom  (Lagrue 
et  al,  1978).  Seventy-two  man-dives  for  18  French  and  18  corres¬ 
ponding  American  profiles  were  performed  and  the  data  were  entered 
into  72  fllea  of  the  DUDB  data  bank.  The  ultrasonic  data  for  one 
diver,  DA,  diving  to  33  m  for  40  min  are  shown  In  Fig.  2  for  the 
French  profile  A  and  the  American  profile  B.  All  of  the  bubble 
grade  measurements  made  during  and  following  the  decompression  were 
used  by  the  program  SEV  to  compute  the  Index  of  severity  S  (3). 
Statistical  comparisons  of  Sr(3)  were  made  for  the  two  series  of 
profiles.  The  general  result  of  this  study  Is  that  there  Is  no 
statistically  significant  difference  In  decompression  stress  in  the 
two  series  even  though  the  American  profile  briefly  produces  a 
high  pressure  gradient  In  the  tissues  of  the  divers  at  the  begin¬ 
ning  of  the  decompression.  Hence,  because  surface  decompression  Is 
safer  operationally,  the  American  series  Is  the  preferred  one. 

CONCLUSIONS 

A  Doppler  ultrasonic  data  bank  has  been  established.  All  of 
the  parameters  included  in  the  data  bank  have  been  fully  described 
and  for  each  of  twelve  parameters,  a  table  has  been  provided  in 
which  entries  may  be  added  as  the  data  bank  grows.  The  procedure 
for  entry  of  data  (Including  a  copy  of  the  Data  Bank  Form  used), 
the  verification  of,  and  use  of  the  data  have  been  outlined.  The 
program,  DEV,  which  Is  used  for  listing  and  verification  of  DUDB 
files  has  been  listed  and  an  example  of  its  use  provided.  The 
program,  SEV,  which  Is  used  to  calculate  the  index  of  severity  of 
decompression  has  been  listed  and  an  example  of  its  use  provided. 
The  program,  SEV,  Is  the  first  of  many  possible  applications  pro¬ 
grams  which  will  make  use  of  the  information  stored  In  DUDB  files. 
The  DUDB  data  bank  and  the  program,  SEV,  were  employed  to  compute 
the  index  of  severity,  S(R,3),  In  order  to  compare  a  series  of 
French  and  corresponding  American  dive  profiles  In  an  experimental 
program  Involving  72  man-dives. 
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Figure  1;  Classification  hierarchy  of  DUDB  dive  parameters.  Each 
dive  series  (identified  by  parameter  #3)  may  involve  a  number  of  dives 
(identified  by  parameter  #7)  each  of  which  Involves  one  or  more 
divers.  Each  man-dive  Is  identified  by  a  file  no.  (parameter  f|). 
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Figure  2:  An  example  of  the  use  of  the  Index  of  severity  of 
decompression  S^(a)  calculated  by  the  progran  SEV  using  ultrasonic 
bubble  grade  data  to  compare  a  French  profile  (of  the  Ministers  du 
Travail)  with  an  American  profile  (involving  surface  decompression). 
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TABLE  I 


NO  OF 
DIVE 
SERIES 
(3) 

DIVE 

NOS 

(7) 

FILE 

NOS 

(1) 

NAME  OF  DIVE  SERIES 
<4) 

1 

M2 

1-80 

DORIS  France  •  Amer  Profile  Comparison 

TABLE  II 


PROFILE  NO 
(5) 

NAME  OF  PROFILE 
(6) 

1 

Amer  surface  Decomp 

21  m  —  50  min 

2 

French 

21  m  —  50  min 

3 

Amer  surface  Decomp 

21  m  —  90  min 

4 

French 

21  m  —  90  min 

5 

Amer  surface  Decomp 

21  m  -  120  min 

6 

French 

21  m  -  120  min 

7 

Amer  surface  Decomp 

27  m  —  60  min 

8 

French 

27  m—  60  min 

9 

Amer  surface  Decomp 

27  m  —  80  min 

10 

French 

27  m  —  80  min 

11 

Amer  surface  Decomp 

27  m  —  90  min 

12 

French 

27  m  —  90  min 

13 

Amer  surface  Decomp 

33  m-  40  min 

14 

French 

33  m  —  40  min 

15 

Amer  surface  Decomp 

33  m  —  60  min 

16 

French 

33  m-  60  min 

17 

Amer  surface  Decomp 

33  m  —  70  min 

18 

French 

33  m  —  70  min 

19 

Amer  surface  Decomp 

39  m—  30  min 

20 

French 

39  m  —  30  min 

21 

Amer  surface  Decomp 

39  m  —  40  min 

22 

French 

39  m—  40  min 

23 

Amer  surface  Decomp 

39  m-  60  min 

24 

French 

39  m—  60  min 

25 

Amer  surface  Decomp 

45  m  —  25  min 

26 

French 

45  m—  25  min 

27 

Amer-surfaca  Decomp 

45  m  —  40  min 

28 

French 

45  m-  40  min 

29 

Amer  surface  Decomp 

46  m  —  50  min 

30 

French 

45  m—  60  min 

31 

Amer  surface  Decomp 

51  m  —  20  min 

32 

French 

51  m  -  20  min 

33 

Amer  surface  Decomp 

51  m  —  30  min 

34 

French 

51  m  —  30  min 

35 

Amer  surface  Decomp 

51  m  —  40  min 

36 

French 

51  m  —  40  min 

TABLE  III 


15 


DIVER  NO 
(9) 

NAME  OF  DIVER 
(10) 

1 

DAUMAS,  B. 

2 

PERON,  M. 

3 

ADALBERT,  P. 

4 

CHEVALUER.  Y. 

5 

CADOUX,  F. 

6 

SCHMALTZ,  J.C. 

7 

FOURCADE,  M. 

8 

DAVID,  B. 

9 

SERNANDE,  E. 

10 

LEFEVRE,  P. 

11 

FAURAT,  A. 

12 

GEANT,  C. 

13 

MERIOT,  P. 

14 

BARON,  L. 

15 

MICHAULT.  C. 

16 

BEARD,  P. 

17 

BUSNEL,  J.F. 

18 

CANNAVACCINOLO,  J. 

19 

TARNEE,  0. 

20 

PRIETO,  JJ. 

21 

MARTINEZ,  R. 

TABLE  IV 


NO 

TYPE  OF  DIVE 

(18) 

1 

Air 

2 

Helium  -  Oxygen 

3 

Helium  —  Nitrogen  —  Oxygen 

TABLE  VIII 
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TAPE  NO 
(24) 


TAPE 


49 

DORIS  B15B 

50 

A17B 

51 

BV7B 

52 

A22A 

53 

A22A 

54 

A21B 

55 

B22B 

56 

A1B 

57 

A7A 

58 

B7A 

59 

A13A 

60 

B13A 

61 

A13B 

62 

B13B 

63 

A10A 

64 

B10A 

65 

B10B 

66 

A10B 

67 

A12A 

68 

B12A 

69 

A12B 

70 

B12B 

71 

All  8 

72 

B11B 

73 

All  A 

74 

B11A 

76 

A9B 

76 

B9B 

77 

A9A 

78 

B9A 

79 

B7B 

80 

A7B 

TABLE  IX 


NO 


DEPTH  CODE  (26) 


NO 


TIME  CODE  (27) 


1  Days-Hourt-Min-Sec 


Examples 


Days 

Hours 

Min 

Sec 

Code 

4 

3 

25 

15 

40325.16 

EX 

23 

U 

5 

2300.06 

2 


Hours-Min-Sec 


Examples  : 


3 


Min-Sec 


Examples  : 


Hours 

Min 

Sec 

Code 

146 

32 

5 

5 

14632.05 

5.00 

Min 

Sec 

Code 

244 

5 

H 

244.30 

5. 

TABLE  XI 


MONITOR  NO 
(34) 


NAME  OF  MONITORS 


1 

2 

3 

4 

5 

6 


KISMAN,  K. 

MASUREL,  G. 

DORIS 

KISMAN  +  MASUREL  (CERTSM) 
GRAS 

FRANCOISE 


D  file  no(is)  : 


FRENCH  33m  -  40  min 


[i>'m»htm^m«h«i  ^MyqMi^fl^gffryiw 


FRENCH  NO.  10  BIB 


TIME  CODE  (14): 

3 

i 

i 

■»>«.w:i  1  *  »  fX;VJB  .rt  I  =£MC1lf->  nl« 

lllll  lllll  Hill  IHIIJB 1  I 

g»-iii;,-i.,x,’:'jn7TnM>—i [<T»j^rT-ij-j,’n-HTfi 

(£■ 


WEIGHT  <F  6. 2)  ; 


FAT  COMRIF6.2) 


©  ENVIRONMENT!  14): 


TYPE  OF  WORK (14) 


TAPE  REOOROER(16): 


OEPTH  CODE  ( 14  )  : 


m«8 


24 


APPENDIX  II 


(a)  .R  EDIT 

♦  EVDX1 »D000l .PAR** 

*11 

D0001 

1 

DORIS  FRANCO-AMER  PROFILE  COMPARISON 
14 

FRENCH  33  M  -  40  MIN 
I 

FRENCH  NO.  10  BIB 
1 

DAUMAS  B. 

D0056 

0  • , 23*8* 77 
0  *  ,  0  * 

0.,  1 
1,0. 

0,0. 

1,1 

1,33. 

3,0. 

0., 5* ,40*  3, 63* 

1, 3,0,0 
32 

I , 0,0,45*  r  3«, 7, 15 
2,0,0, 48  « , 3 . , 2  4 
3,0,0, 52* ,3., 42, 47 
4,0, 0, 59  *, 3*, 56, 63 
5,0,0, 62. ,0.,71,76 

6,  1 12,  1  12, 75. ,0., 85, 93 

7. 1  12,  1  12, 83., 0.,  100,  108 

8,  1  12, 1 12,95*, 0., 1 18, 127 

9,  1 12,0, 103., 0., 142,150 
10,232,343,  1  1  3.,  0.,  1  60,  1  68 

I I, 232, 332, 1 23., 0., 180, 189 
12,0,0, 133., 0., 204, 215 

13.112. 1 12. 143..  0.. 228. 241 
14,0,212, 1 53., 0., 255,  268 

15. 1 12. 1 12. 165.. 0«,  279,297 
16,0,0,  173., 0.,  316,  331 
1,0,0 

2,0,0 

3,0,0 

4,0,0 

5,1,0 

6,0,0 

7.1.1 

8.20. 1 

9.1.1 

10.21.3 

11.21.3 
12,2,2 

1 3.999. 1 

14.999.2 
15,0,2 

1  6,0,  1 
0 


♦  DCSS 
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(b) 

.RUN  DXliDEV 


NUMBER  OF  FILE  FILES  7 


******************************** 


DIVE  FILE  l  D000 1 


I 


*************** 

***************** 

FILEt .  # 

1/ 

D0001 

DIVE  SERIES!  # 

I# 

DORIS  FRANCO-AMER  PROFILE  COMPARISON 

PROFILE .  # 

14# 

FRENCH  33  M  -  40  MIN 

DlVEt. ......  # 

1# 

FRENCH  NO.  10  BIB 

DIVER .  # 

1# 

DAUMAS  B. 

ASSOCIATED  DUDB  FILES! 
AUXILLI ARY  FILES! 

D00S6 

i 


t 


TIME  OF  DAY . 

0.00 

DATE  OF  DIVE . 

23  8  77 

UE IRHTi . 

0|A0|0| 

H  F I  CIU Tt  • 

a  .an 

FAT  COMPOSITION!. 

0.00 

TYPE  OF  DIVE . 

i 

ENVIRONMENT . 

I 

TEMPERATURE! . 

0.0 

TYPE  OF  VORXi . • . . 

0 

QUANTITY  OF  WORK! 

0.0 

TAPE  RECORDER  NOi 

1 

TAPE  NOi . 

1 

DEPTH  CODE! . 

1 

BOTTOM  DEPTH!.... 

33.0 

TIME  CODE! . 

3 

TIME  OF  PROF  ALTi 

0.00 

T(BEQ) . . 

0.00 

T< ARRIVAL) t ... 

5.00 

TCBEG  DECOMP) i 

40.30 

T( END  DECOMP)! 

63.00 

MONITOR  NOSi 

1  3 

0 

0 

TOTAL 

NO  OF 

EVALi 

32 

EVAL 

D(  R)  # 

D(M  )# 

TIME# 

DEPTH# 

TAPE!  REST# 

TAPE! 

MOVE# 

VD( R) # 

VD(  M) 

NO 

A  B 

C 

1 

0 

0 

45*00 

3.0 

7 

15 

0 

0 

0.00 

0.00 

2 

0 

0 

48.00 

3.0 

24 

0 

0 

0 

0.00 

0.00 

3 

0 

0 

52.00 

3.0 

42 

47 

0 

0 

0.00 

0.00 

4 

0 

0 

59.00 

3.0 

56 

63 

0 

0 

0.00 

0.00 

5 

0 

0 

62.00 

0.0 

71 

76 

0 

0 

0.00 

0.00 

6 

112 

1  12 

75.00 

0.0 

85 

93 

0 

0 

0.00 

0.00 

26 


7 

112 

112 

83.00 

0.0 

100 

108 

0 

0 

0 

00 

0< 

00 

8 

112 

112 

95.00 

0.0 

1  18 

127 

0 

0 

0 

00 

0 

00 

9 

112 

0 

103.00 

0.0 

142 

150 

0 

0 

0 

00 

0 

00 

10 

232 

343 

113.00 

0.0 

160 

168 

0 

0 

0 

00 

0 

00 

11 

232 

332 

123.00 

0.0 

180 

189 

0 

0 

0 

00 

0 

00 

12 

0 

0 

133.00 

0.0 

204 

215 

0 

0 

0< 

00 

0 

00 

13 

112 

112 

143.00 

0.0 

228 

241 

0 

0 

0< 

00 

0. 

00 

14 

0 

212 

153.00 

0.0 

255 

268 

0 

0 

0 

00 

0 

00 

15 

112 

1  12 

165.00 

0.0 

279 

297 

0 

0 

0. 

00 

0 

00 

16 

0 

0 

173.00 

0.0 

316 

331 

0 

0 

0 

00 

0 

00 

1 

0 

0 

0.00 

0.0 

0 

0 

0 

0 

0. 

00 

0 

00 

2 

0 

0 

0.00 

0.0 

0 

0 

0 

0 

0 

00 

0< 

00 

3 

0 

0 

0.00 

0.0 

0 

0 

0 

0 

0. 

00 

0 

00 

4 

0 

0 

0.00 

0.0 

0 

0 

0 

0 

0< 

00 

0 

00 

5 

1 

0 

0.00 

0.0 

0 

0 

0 

0 

0 

00 

0 

00 

6 

0 

0 

0*00 

0.0 

0 

0 

0 

0 

0 

00 

0 

00 

7 

1 

1 

0.00 

0.0 

0 

0 

0 

0 

0 

00 

0 

00 

8 

20 

1 

0.00 

0.0 

0 

0 

0 

0 

0 

00 

0 

00 

9 

1 

1 

0.00 

0.0 

0 

0 

0 

0 

0. 

00 

0 

00 

10 

21 

3 

0.00 

0.0 

0 

0 

0 

0 

0 

00 

0 

00 

11 

21 

3 

0.00 

0.0 

0 

0 

0 

0 

0 

00 

0 

00 

12 

2 

2 

0.00 

0.0 

0 

0 

0 

0 

0 

00 

0 

00 

13 

999 

1 

0.00 

0.0 

0 

0 

0 

0 

0 

00 

0 

00 

14 

999 

2 

0.00 

0.0 

0 

0 

0 

0 

0. 

00 

0. 

00 

15 

0 

2 

0.00 

0.0 

0 

0 

0 

0 

0 

00 

0 

00 

16 

0 

1 

0.00 

0.0 

0 

0 

0 

0 

0 

00 

0 

00 

NO  OF  INCIDENCES  OF  D.S.I  0 


7 
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80 
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87 
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0042 

0043 

0044 

0045 

0046 

0047 

1 

0048 

0049 

0050 

0051 

00S3 

0054 

2 

0055 

0056 

3 

0057 

0058 

88 

LOG I CAL* 1  BUFLAGC  8 0 >  /  FI LNAMl 14)/ EXT < 4 ) / CC( 45 > / EE<  4 5> / FF K  5 ) 
LOGICAL*!  FF2(5)/FF3C5)/FF4C5)/FF6C5)/FF7(5)/GG1<  5) 
LOGICAL*!  GG2C  5)/ GG3C  5>/GG4( 5) / 1 1 C  45) / EEE< 71 )/ NFILNC  100/5) 
L0G1CAL*1  TN<5)/TNX<  5)/AAA(5)/FN(45) 

INTEGER* 2  I N( 3 ) / I FFC 4 ) / 1 1 ( 200 > / 1 2C 200 ) / 1 3( 200 ) / I 6( 200 ) 
INTEGER* 2  1 7( 200 ) / 18 ( 200) / 1 9( 200 ) / 1 20(  10)/ 121 ( !0)/I22( 10) 
INTEGER* 2  MCH<50) 

REAL*4  F4(200)/F5(200)/F10(200)/F1 1(200)/F23( 10)/F24( 10) 
REAL*4  F25C 10)/F26C 10) 

DATA  FILNAM/’D*/  *X*/ ’  1 •/•:'/ 10*’  * / // EXT/ * . # z  *P */  ' A • /  *R * / 
DATA  TNX/5*  *  ’/ 

NN  ■  0 

TYPE  210 

ACCEPT  211/  NON 

IF  ( NON • EQ • 0 )  GO  TO  1 

NN  «  NN* 1 

TYPE  217 

TYPE  213 

ACCEPT  101/ NCH/ ( BUFLAGC I)/I*1/NCH) 

TYPE  217 

IF  ( NCH • EQ • 0 • OR* NCH • GT • 6)  GO  TO  84 

DO  81  1*1 /NCH 

FILNAMC 1*4)  »  BUFLAGC I ) 

DO  82  1*1/4 

FILNAMC I*NCH*4)  •  EXTCI) 

CALL  ASSIGNC2/F1LNAM/NCH+8/ ’OLD') 

READ  C 2/211)  KEND 
DO  83  1PK-1/KEND 

READ  (2/101)  MCHC 1PK) / ( NFILNC IPK/ I PL) /  IPL* 1 / MCHC IPK) ) 

CALL  CLOSE  (2) 

DO  90  N* l /KEND 
DO  91  INA*l/6 
TNC INA)  *  TNXC INA) 

DO  85  I Y* 1 / MCHC N) 

TNC IY)  «  NFILNC N/IY) 

FILNAMC I Y*4 >  »  NFILNC N/IY) 

DO  86  12*1/4 

FILNAMC IZ+MCHCN) *4)  *  EXTCI2) 

TYPE  216 
TYPE  214 
TYPE  215/  TN 
TYPE  214 

CALL  ASSIGN  (2/ FI L NAM /MCHC  N)+8/ *  OLD*  > 

GO  TO  88 
TYPE  214 
TYPE  100 

ACCEPT  101/  NCH/ (BUFLAGC I )/  1*I/NCH) 

TYPE  214 

1FCNCH.EQ.0.OR.NCH.GT.6)  GO  TO  1 

DO  2  1  *  1/NCH 

FILNAMC 1*4)  *  BUFLAGC 1) 

DO  3  1  *  1/4 

FILNAMC I*NCH*4)  »  EXTCI) 

CALL  ASSIGN  C 2/ FI LNAM, NCH *8 » *  OLD* ) 

CONTINUE 


C 
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0059 

READ 

( 2* 3C3> 

1 AAA* AAA 

0060 

READ 

<2*301  ) 

IB*  CC 

0061 

READ 

(2*301) 

1 FN*  FN 

0062 

READ 

(2*301) 

ID*  EE 

0063 

READ 

(2*301) 

IH*  1 1 

0064 

READ 

( 2*302) 

FF 1  *  FF2* FF  3*  FF4* FF5* FF  6*  FF7 

0065 

READ 

(2*303) 

GG 1  * GG2* GG3* GG4 

0066 

READ 

(2*304) 

FX.IN 

0067 

READ 

(2*303) 

FJ*FK 

0068 

READ 

(2*306) 

FL.IM 

0069 

READ 

(2*307) 

1 0*  FP 

0070 

READ 

(2*307) 

IQ*  FR 

0071 

READ 

(2*308) 

I S*  IT 

0072 

READ 

(2*307) 

10*  FV 

0073 

READ 

(2*309) 

IV.PPP 

0074 

READ 

(2*310) 

FAA*  FBB*  FCC*  FDD 

0075 

READ 

(2*31 1 ) 

EEE 

0076 

READ 

(2*312) 

IFF 

0077 

READ 

(2*313) 

1  GG 

0078 

READ 

(2*1I5> 

(  1 1  (  I  ) *  1 2(  I  >  *  1 3(  I  )  *  F4(  I  )  *  F5(  1 )  *  I  6(  I  )  *  I  7(  1  >  * 

118(1) 

.19(1)* 

F10(1)*FI 1(1)*  1*1* IGG) 

0079 

READ 

(2*313) 

IHH 

0080 

IF  (1HH.EQ.0)  GO  TO  14 

0082 

READ 

(2*116) 

(120(J)*I21(J)* I22< J ) *  F23< J>*  F24( J ) *  F25<  J) * 

1  F26(  J)  *  J*  I  *  1HH  > 


C 


0083 

14 

c 

CONTINUE 

0084 

V 

c 

CALL 

CLOSE  (2) 

008S 

V 

TYPE 

400*1 AAA* AAA 

0086 

TYPE 

40 1  *  IB* CC 

0087 

TYPE 

402* I FN*  FN 

0088 

TYPE 

403.1D.EE 

0089 

TYPE 

404.1H.II 

0090 

TYPE 

405*  FF1 *  FF2* FF3* FF4*  FF5* FF6* FF7 

0091 

TYPE 

406*  GG 1  *  GG2* GG3* GG4 

0092 

TYPE 

407* FX.IN 

0093 

TYPE 

408*  FJ  *  FK 

0094 

TYPE 

409* FL.IM 

0095 

TYPE 

410*  10*  FP 

0096 

TYPE 

41 1  *  IQ*  FR 

0097 

TYPE 

412.1S.IT 

0098 

TYPE 

413.1U* FV 

0099 

TYPE 

414.IV.PPP 

0100 

TYPE 

4 1 5*  FAA*  FBB*  FCC*  FDD 

0101 

TYPE 

41 6* EEE 

0102 

TYPE 

417*1 FF 

0103 

TYPE 

418* IGG 

0104 

TYPE 

125 

0105 

TYPE 

119(1) 

126*  (  I  1  (  1 )  *  1 2(  1  )  *  1  3(  I  >  *  F4(  1  )  *  F5(  1  )  *  1  6(  1  )  *  I  7(  I  >/  I8(  I  ) 
>* FI  0(1)* FI  1(1).  1*1*1 GG) 

0106 

TYPE 

129*  IHH 

0107 

IF(IHH)  11*11*10 

0108 

10 

TYPE 

127 

0109 

TYPE 

128*  (  I20(J)*I21(  J)*I22(  J)*F23(J)*F24(J)*F25(  J). 

I F26( J  )  *  J*  1  * IHH  > 


29 


» 


RT-11  FORTRAN  IV 


70IB-00  MON  28-AUG-78  00»12i58  PAGE  003 


C 


0110 

1 1 

CONTINUE 

011 1 

90 

CONTINUE 

• 

0112 

IF  (NN.LT.NON)  GO  TO  87 

0114 

c 

TYPE  216 

01  IS 

100 

FORMAT! / ' SOI VE  FILE  «  ') 

0116 

101 

FORMAT! Q#80A1 > 

0117 

ns 

FORMAT! 31 4«2F9.2« 41 5«2F6'2> 

» 

0118 

116 

FORMAT! 3I4#4FI0*2) 

01  19 

125 

FORMAT! '  EVAL  '  #  '  D!R)#  D!M)  #  TIME#  DEPTH#  TAPEt  REST#'# 

I*  TAPE*  MOVE#  V0!R>#  WD!M)'#/'  N0’#44X#'A  B  C'#/> 

0120 

126 

FORMAT!  IX#  I3#3X#  13#3X#13#F1  |.2#F8. 1  # 21 7# 21 5# 2F6. 2# /> 

0121 

127 

FORMAT!//’  D.S.  N0#  TYPE#  SEVERITY#  T! START)#  P! START > # ' # 

1*  T! END) #  P! END) *# /) 

• 

0122 

128 

FORMAT! I5#17#19#2FI2>2#2F1 1*2#/) 

0123 

129 

FORMAT!'  NO  OF  INCIDENCES  OF  D.S.  t  *#16#/) 

0124 

210 

FORMAT  < / ' S NUMBER  OF  FILE  FILES  7  ') 

0125 

21  1 

FORMAT  !14) 

0126 

213 

FORMAT  ! //' SFILE  FILE  I  ') 

0127 

214 

• 

0128 

215 

FORMAT  </'  DIVE  FILE  *  ’#6A1) 

0129 

216 

FORMAT  ! /////////) 

0130 

217 

FORMAT  ! //* 1 1  I  1 1 1  I  II II 1  I  1 I 1 II M  M 1 1 1 ! 1 ! 1  1  111  ') 

0131 

300 

FORMAT! I 5# /#  5A1 ) 

0132 

301 

FORMAT! I  6#  /#  45A1 ) 

0133 

302 

FORMAT! 7! 5A1# IX)) 

« 

0134 

303 

FORMAT! 4! 5A1# IX)) 

0135 

304 

FORMAT! F7. 2#  313) 

0136 

305 

FORMAT! 2F6. 2) 

0137 

306 

FORMAT! F6. 2#  14) 

0138 

307 

FORMAT! 14# F6.  1  > 

0139 

308 

FORMAT! 21 6) 

1 

0140 

309 

FORMAT! 14#F10. 2) 

0141 

310 

FORMAT !4F1 0.2) 

0142 

311 

FORMAT! 71 Al) 

0143 

312 

FORMAT! 41 6) 

0144 

313 

FORMAT! I 6) 

0145 

400 

FORMAT!/'  FILE .  '#'#'#I6#'#  *#5Al/> 

• 

0146 

401 

FORMAT! '  DIVE  SERIES!  ' # IX#  ' # ' # I 6# * #  ’#45A1#/) 

0147 

402 

FORMAT!'  PROFILE .  '#'#'#I6#'#  *#45AI#/) 

0148 

403 

FORMAT!  '  DIVE .  '#'f'#I6#'#  '#45A1#/) 

.  0149 

404 

FORMAT!'  DIVER: .  '#'#'#I6#'#  *#45A1#/) 

0150 

405 

FORMAT!'  ASSOCIATED  DUDB  FILES:  '#7!1X#5AD) 

0151 

406 

FORMAT!'  AUXILLIARY  FILES:  ' # 5X# 4! IX# 5A1 ) /) 

• 

0152 

407 

FORMAT! '  TIME  OF  DAY: . *#F7.2#5X# 

1 'DATE  OF  DIVE .  '#3!IX#I2)> 

0153 

408 

FORMAT!'  WEIGHT: .  '#F6>2#5X# 

1 'HEIGHT: .  *#F6.2> 

0154 

409 

FORMAT! '  FAT  COMPOSITION:.  *#F6.2#5X# 

1  'TYPE  OF  DIVE . . 

• 

0155 

410 

FO^M*\T!  '  ENVIRONMENT: .  '#I4#5X# 

1 ' TEMPERATURE: . ' #  4X#  F6* 1 > 

0156 

41  1 

FORMAT! '  TYPE  OF  WORK .  '#I4#5X# 

1 'QUANTITY  OF  WORK: *# 4X# F6. 1 ) 

0157 

412 

FORMAT!'  TAPE  RECORDER  NO:  *#I6#5X# 

I  'TAPE  NOt . *#4X#I6) 
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0158  413  FORMAT! ‘  DEPTH  CODEt .  *#14*5X* 

l ‘BOTTOM  DEPTH t  «•••'«  4X#  F6 • 1 ) 

0159  414  FORMAT!*  TIME  CODEt .  '*I4#5X* 

1 ‘TIME  OF  PROF  ALTt  **  F10«2#/> 

0160  415  FORMAT! ‘  T! BEG) . . ‘#Fl0.2*/‘  T! ARRIVAL) t ... ‘*F10. 2» 

l/‘  T! BEG  DECOMP) » *#F10. 2/ ‘  T! END  DECOMP) *’# F10. 2# /> 

0161  416  FORMAT! 1X*71A1*/) 

0162  417  FORMAT!*  MONITOR  NOS t  *  #  4! IX* I  6) * / ) 

0163  418  FORMAT!*  TOTAL  NO  OF  EVALl */ I  6* /) 

0 1 64  END 


» 


t 


» 


» 


> 


> 


APPENDIX  III 

V3) 

RUN  DXlsSEV 

TYPE  i  FOR  DATA  LISTING  t 

TYPE  CODE*  TIKE  RANGE  t  3*136-1 

NUMBER  OF  FILE  FILER  7 

******************************** 

DIVE  FILE  t  C0001 

.,*****.  ************************* 


MONITOR  NO*  1 


SCR,  I  ; 

a 

21.29 

SCM, 1 > 

a 

23.55 

SCR, 2) 

a 

9.52 

SC  M, 2  > 

a 

12.39 

SC  R,  3) 

at 

5.17 

SCM, 3) 

* 

8.28 

SCR.4) 

a 

3.16 

SCM, 4) 

a 

6.21 

SCR, 5> 

a 

2.03 

SCM, 5) 

a 

4.87 

SCR,  6) 

a 

1  .34 

SCM, 6) 

a 

3.88 

SC  R, 7 ) 

a 

0.89 

SCM, 7) 

a 

3.12 

MONITOR  NO. 

3 

scr,  1  > 

a 

24.97 

SCM, 1 ) 

a 

31*13 

SCR, 2) 

a 

1  1 .68 

SCM. 2) 

- 

16.37 

?CR, 3) 

a’ 

5*84 

SCM, 3) 

a 

9.80 

jcn,A) 

a 

3.05 

SCM, 4) 

- 

6*36 

sen, 5) 

a 

1.63 

SCM, 5) 

a 

4.34 

SCR,  6) 

a 

0.89 

SCM, 6) 

a 

3*06 

SCR, 7) 

a 

0.49 

SCM, 7) 

a 

2.20 

31 


j 


(b) 
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0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 


0013 


LOGICAL*!  BUFLAGC 80)# FILNAMC 1 4)# EXTC 4)# CCC 45># EEC  45)# FF1 C  5) 
LOGICAL*  1  FF2C5)#  FF3C  5>#  FF4C  5>  #  FF5C  5) #  FF6C  5)  #  FF7C  5>#GG1C5) 
LOGICAL*!  GG2C5)#GG3C5)#GG4CS)#  IK  45)#  EEEC  71  )#  NFILNC  1 00,  5  ) 
LOGICAL* 1  TNC5)#TNXC5)#AAAC5)#FNC45) 

INTEGER*  2  INC  3) # IXC 2)# 1 FFC 4)#  IK  200)  #  1 2(  200)  #  I  3C  200)  *  I  6C  200  ) 
INTEGER* 2  I 7C 200) # I8C 200) # 1 9C 200) # 1 20 < 10)#121C I0)#I22C 10> 

I NT EGER* 2  ASSDC 64)« ASSCC 64) # RESC 13>#MCHCS0) 

REAL* 4  F4C200)#F5C200)#F10C200)#F1  1C200)#F23C  10>#F24C  10) 
REAL* 4  F25C 10)#F26C 10)#  F4SC 200) #F23SC 10)#  F25SC 10)#DEGC13> 
REAL *8  SRC  7)# SMC  7) 

DATA  FILNAM/'D*# ’X*#  *  1 ’# 'i  *#  10*’  *#  /#  EXT/  •  .  •#  *P  *#  ’A  •#  *R  V 
DATA  ASSD/ 10#1  #1  #  1 1  #  1 1  #2#  2#  2#  2#  2#  30#  30#  2#  30#'  3#  3#  ‘  '  ’ 

110#  1  #  20#  20#  20#  2#2 1  #  21  #  2#  30#  3#  3#  30#  3#  3#  31# 

21 #20# 2# 2# 2# 21# 30# 3# 30# 3# 3# 31# 3#  31  #31#  40# 

320#  2#  2 1  #  30#  30#  3#  3#  3#  3#  3 1  #  40#  4#  3 1  *  4#  4#  4 1  / 

DATA  ASSC/1 1 1# 1 12# 1 13# 1 14# 121# 122# 123# 1 24# 1 31 # 1 32# 1 33# 1 34# 
1141# 142# 143# 144# 21 1#212#213#214#221#222# 223# 224# 231  #232# 
2233#  234#  241 #  242#  243#  244#311#312#313#314#321#  322#  323#  324# 

3331 #332# 333# 334# 341 #342# 343# 344# 41 1 #41 2#4 1 3#4l 4# 421 #422# 
4423# 424# 431 #432# 433#434# 441 #442# 443# 444/ 


0014 

DATA  DEG/0*# 0* 6666667# 1 *# 1 . 3333333# 1 • 666666 
12.3333333#  2. 6666667#  3*#  3*  3333333#  3. 6666667# - 

0015 

DATA  RES/0#  10#  1#  1 1#20#2#21#30#3#31#40#4#41/ 

0016 

n 

DATA  TNX/5*  *  V 

0017 

V 

TYPE  200 

0018 

ACCEPT  201 # I DATA 

0019 

TYPE  202 

0020 

ACCEPT  203#  1COD#  TJ 

0021 

NN  -  0 

0022 

80 

TYPE  210 

0023 

ACCEPT  211#  NON 

0024 

IF  CNON.EQ.0)  GO  TO  1 

0026 

87 

NN  •  NN* 1 

0027 

TYPE  217 

0028 

TYPE  213 

0029 

84 

ACCEPT  101#  NCH# C  BUFLAGC I ) # 1*1# NCH ) 

0030 

TYPE  217 

0031 

IF  CNCH.EQ.0.OR»NCH.GT*6)  QO  TO  84 

0033 

DO  81  1*1 #NCH 

0034 

81 

F1LNAMC 1*4)  *  BUFLAGC I) 

0035 

DO  82  I*l#4 

0036 

82 

FILNAMC 1 *NCH*4)  *  EXTC I ) 

0037 

CALL  ASS1GNC  2#  FILNAM#  NCH*8#  *  OLD*  > 

0038 

READ  C  2#  21 1 >  KEND 

0039 

DO  83  IPK* 1# KEND 

0040 

83 

READ  C2# 101 )  MCHC IPK)#CNFILNC IPK# IPL)#  1PL* 

0041 

CALL  CLOSE  C2) 

0042 

DO  90  N* 1 # KEND 

0043 

DO  91  I NA* 1 #  6 

0044 

91 

TNC1NA)  *  TNXCINA) 

0045 

DO  85  IY* 1 # MCHC N) 

0046 

TNCIY)  •  NFILNC N#IY> 

0047 

85 

FILNAMC 1Y*4)  «  NFILNC N# IY) 

0048 

DO  86  IZ*  1  #4 

0049 

86 

FILNAMC IZ*MCHCN)*4)  -  EXTCIZ) 

0050 

TYPE  216 

1  #  MCHC IPK) > 


/  v. 
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0051 

TYPE  214 

0052 

TYPE  215*  TN 

0053 

TYPE  214 

0054 

CALL  ASSIGN  ( 2* FILNAM*MCH( N) +8* 'OLD') 

0055 

GO  TO  88 

00S6 

1 

TYPE  214 

0057 

TYPE  100 

0058 

ACCEPT  101*  NCH* ( BUFLAG( 1 )*  I*1«NCH) 

0059 

TYPE  214 

0060 

1F( NCH • EQ >0 • OR* NCH • GT • 6)  GO  TO  1 

0062 

DO  2  I  *  1  *  NCH 

0063 

2 

F1LNAMC 1*4)  *  BUFLAG(l) 

0064 

DO  3  1  *  1*4 

0065 

3 

FILNAMC I+NCH+4)  -  EXT< 1 ) 

0066 

f 

CALL  ASSIGN  (  2*  F1LNAM*  NCH *8*  *  OLD*  > 

0067 

If 

88 

CONTINUE 

0068 

READ  ( 2*  300)  1 AAA* AAA 

0069 

READ  (2*301)  IB* CC 

0070 

READ  (2*301)  I FN*  FN 

0071 

READ  (2*301)  ID* EE 

0072 

READ  (2*301)  1H* 1 1 

0073 

READ  (2*302)  FF1 *  FF2*  FF3*  FF4*  FF5*  FF6*  FF7 

0074 

READ  (2*303)  GO  1  * GG2* GG3* GG4 

0075 

READ  (2*304)  FX* IN 

0076 

READ  (2*305)  FJ*  FK 

0077 

READ  (2*306)  FL* IM 

0078 

READ  (2*307)  10*  FP 

0079 

READ  (2*307)  I Q*  FR 

0080 

READ  (2*308)  IS* IT 

0081 

READ  (2*307)  IU*FV 

0082 

READ  (2*309)  1V*PPP 

0083 

READ  (2*310)  FAA*  FBB*  FCC*  FDD 

0084 

READ  (2*311)  EEE 

008  5 

READ  (2*312)  IFF 

0086 

READ  (2*313)  1GG 

0087 

READ  (2*115)  (  1 1(  I)*12(  1)*I3(  I)*F4(  I)*F5(  I>*  1  6(  1) 
1I8( I>* 19(1 >*F10( 1 >*Fl 1( 1>*  1*1* IGG) 

0088 

READ  (2*313)  IHH 

0089 

1FOHH.EQ.0)  GO  TO  14 

0091 

READ  (2*116)  (  1 20(  J  )  *  1 2  1  (  J )  *  122(<J)*F23(J*  F24(  J  )  « 
1F26(J>*  J* 1  * IHH ) 

0092 

14 

n 

CONTINUE 

0093 

V 

c 

CALL  CLOSE  (2) 

0094 

w 

1 VV  *  IV 

0095 

KIT  *  1GGMHH*2*5 

0096 

DO  70  Kl* 1  *  KIT 

0097 

IF(KI.EQ.l)  TX* FAA 

0099 

1 F( Kl • EQ* 2)  TX*FBB 

0101 

I F( KI • EQ*  3>  TX* FCC 

0103 

IF(KI *EQ*4>  TX* FDD 

0105 

I F( Kl • GT*  4 • AND*  KI *LE*(4+1GG))  TX*F4(KI-4) 

0107 

1F(KI*GT*(4*IGG) * AND.KI *LE* ( 4*1 GG* IHH) )  TX*F23(K1 

0109 

IF(KI*GT.(4«-IGG-HHH).AND.KI  *LE*(4+1  GG«-IHH*2)  )  TX* 
1“ IGG- IHH) 

33 
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-4-IGG) 

F25(KI-4 


ithitS 
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0111 

IFCK1.NE.CIGG+IHH*2*5>>  GO  TO  50 

0113 

TX  -  TJ 

0114 

IV  »  ICOO 

0115 

50 

KA  -  TX 

0116 

TRA  *  CTX-KA)* 100* 

0117 

KB  ■  TX/100. 

01 18 

TRB  *  C KA/1 00.-KB)* 6000  * 

0119 

KC  •  TX/10000. 

0120 

IF< 1V.EQ.3)  TRC- < KB/ 1 00. -KC)* 600000* 

0122 

1F< IV.LT.3)  TRC«CKB/100.-KC)*360000. 

0124 

IFC IV. GT. 1 )  TX«TRA*TRB*TRC+KC*360000. 

0126 

IFC IV. EQ. 1)  TX« TRA*TR8+TRC*KC*8 6400 • 

0128 

1 F< KI • EQ. 1 )  FAAS«TX 

0130 

1FCKI.EQ.2)  FBBS*TX 

0132 

IFCK1.E0.3)  FCCS-TX 

0134 

IFCK1.EQ.4)  FDDS*TX 

0136 

IFCKX . GT.4.AND.K1 .LE. C I GG*4) )  F4SCKI-4)«TX 

0138 

1F(K1 »GT •  C  4+1 GG) • AND.KI *LE«  C  4+1 GG+ IHH  )  )  F23S< KI-4-IGG)»TX 

0140 

IF(KI .GT« C 4+ l GG+ IHH > . AND.KI «LE. C 4+ I GG+IKK*2> )  F25SC KI -4-1 GG 
1  - IHH) »TX 

0142 

IFCKI.EQ.C5+IGG+IHH+2))  TJS»TX 

0144 

70 

CONTINUE 

0145 

N1Y  *  0 

0146 

NIZ  -  0 

0147 

MG  -  0 

0148 

71 

CONTINUE 

0149 

c 

MG  -  MG*  1 

0150 

1# 

DO  51  J IM*  1  #  7 

0151 

SRCJIM)  -  0. 

0152 

51 

SMC JIM)  «  0. 

0153 

XR1  •  0. 

0154 

XM1  •  0. 

0155 

1FLAG  »  0 

0156 

ICK  -  0 

0157 

F4SXR  ■  0. 

0158 

n 

F4SXM  -  0. 

0159 

m 

DO  20  N1«!»IGG 

0160 

IFC 1CK.EQ. 1 >  GO  TO  18 

0162 

NIX  •  NI+NXY 

0163 

JR2  •  I2CNIX) 

0164 

IFC JR2.EQ.999)  GO  TO  57 

0166 

IFC JR2.LT. 100)  GO  TO  29 

0168 

DO  22  M I « 1  #  64 

0169 

IFC JR2.EQ.ASSCCMI ) )  GO  TO  23 

0171 

22 

CONTINUE 

0172 

TYPE  131 

0173 

23 

JR2  -  ASSDCMI) 

0174 

29 

CONTINUE 

0175 

DO  44  IlK»!sl3 

0176 

I FC JR2* EQ.RESC 1  IK) >  GO  TO  45 

0178 

44 

CONTINUE 

0179 

TYPE  131 

0180 

45 

XR2  -  DEGC1IK) 

0181 

DO  31  JAL«I«7 

0102 

SRCJAL)  •  SRCJAL)  ♦  CXR2**JAL+XR 1 **JAL)*C  F4SC  NI ) -F4SXR) 
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0183 

31 

CONTINUE 

0184 

F4SXR  -  F4SCN1) 

0185 

c 

XR1  «  XR2 

0186 

If 

57 

JM2  «  I3CNIX) 

0187 

IF< JM2.EQ.999)  GO  TO  18 

0189 

IFC JM2.LT. 100)  GO  TO  24 

0191 

DO  25  I ONK- 1 ; 64 

0192 

IFC JM2.EQ. ASSCC 10NK) >  GO  TO  26 

0194 

25 

CONTINUE 

0195 

TYPE  131 

0196 

26 

JM2  -  ASSD(IONK) 

0197 

24 

CONTINUE 

0198 

DO  46  I AK- 1*13 

0199 

IFC JM2.EQ.RESC IAK) >  GO  TO  47 

0201 

46 

CONTINUE 

0202 

TYPE  131 

0203 

47 

XM2  *  DEGCIAK) 

0204 

DO  30  JAL»1;7 

0205 

30 

SMCJAL)  *  SMCJAL)  ♦  CXM2**JAL+XM1 **JAL>*C F4SC NI ) -F4SXM) 

0206 

F4SXM  -  F4S(NI> 

0207 

f 

XM1  -  XM2 

0208 

18 

IF< CNI+NIY) . EQ« 1GG)  GO  TO  40 

0210 

15 

IF<  I  KN1+NIY+1 )  »NE*  1  )  GO  TO  21 

0212 

I  FLAG  a  1 

0213 

NIY  -  NIY  ♦  NI 

0214 

GO  TO  40 

0215 

21 

1FCCF4SCNI+1)-FCCS).GT.TJS)  ICK  -  1 

0217 

20 

CONTINUE 

0218 

40 

CONTINUE 

0219 

DO  41  JON-1*  7 

0220 

SRC JON)  -  SRCJON)/C2*CF4SCNI)-FCCS)*4**JON*.0I> 

0221 

41 

SMC JON)  »  SMCJON)/C2*CF4SCNI)-FCCS)*4**JON*.0I) 

0222 

IFC IDATA.NE. 1 )  GO  TO  11 

0224 

IFCNIZ.NE.0)  GO  TO  11 

0226 

NIZ  =  NIZ+1 

0227 

TYPE  400; 1 AAA; AAA 

0228 

TYPE  40 1 ; I 8; CC 

0229 

TYPE  402; I FN; FN 

0230 

TYPE  40 3; ID; EE 

0231 

TYPE  404; IH; I I 

0232 

TYPE  405; FF 1 ; FF2; FF3; FF4; FF5; FF 6; FF7 

0233 

TYPE  40  6;  GG 1 ;  GG2;  GG3;  GG4 

0234 

. 

TYPE  407;  FX;  IN 

0235 

TYPE  408; FJ; FK 

0236 

TYPE  409;FL;IM 

0237 

TYPE  410;  10;  FP 

0238 

TYPE  41  1;  IQ;FR 

0239 

TYPE  41 2; IS; IT 

0240 

TYPE  4  1  3;  IU;  FV 

0241 

TYPE  414; 1 W;PPP 

0242 

TYPE  415; FAA; FBB; FCC; FDD 

0243 

TYPE  416; EEE 

0244 

TYPE  4 17; IFF 

0245 

TYPE  418; IGG 

0246 

TYPE  125 
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0247  TYPE  126,  !  11  !  I  )  ,  1 2C  I  >,  1 3C  I  »  ,  F4!  I  )  ,  F5!  I  » ,  I  6(  I  ) ,  1  7(  I  )  ,  I8<  I  )  , 

II9!l),F10(l),Fll!I>,  1-1, NI) 

0248  IF(NI .EQ. IGG)  GO  TO  12 

0250  TYPE  140,  (11(1), 12(1), 13(1), FI 0( 1 ) , FI  I ( 1 ),  1  •(  NI  ♦  I  )  ,  I  GG> 

0251  TYPE  129,  1HH 

0252  12  IF(IHH)  11,11,10 

0253  10  TYPE  127 

0254  TYPE  123,  ( I20( J), 121 ( J), 122( J),F23( J), F24( J),F25( J), 

1F26(J),  J- 1 , 1HH ) 

025S  11  CONTINUE 

0256  TYPE  204,  IFF(MG) 

0257  TYPE  205,  (JON,  SR(  JON)  ,  JON,  SM(  JON) ,  JON-1,7) 

0258  IF( IFLAG.EQ. 1 )  GO  TO  71 

0260  90  CONTINUE 

0261  IF  ( NN.LT*  NON)  GO  TO  87 

0263  TYPE  216 

C 

0264  100  FORMAT( /’SDIVE  FILE  I  *> 

0265  101  FORMAT! Q,80A1 > 

0266  115  FORMAT! 314, 2F9  *2,4I5,2F6«2) 

0267  116  F  ORMAT ! 3 1 4, 4F 1 0  *  2 ) 

0268  125  FORMAT! '  EVAL*,*  D(R),  D(M) ,  TIME,  DEPTH,  TAPEt  REST,’, 

I*  TAPE*  MOVE,  VD(R),  VD(M>',/'  NO  * , 44X, 'A  B  C*,/) 

0269  126  FORMAT  (  IX,  I3,3X,13,  3X, 13,  FIl.  2,  F8« (,217,215,  2F6»2,  /) 

0270  127  FORMAT( // '  D.S.  NO,  TYPE,  SEVERITY,  TC  START),  P< START),*, 

I*  T(  END  J,  P(  END)*,/) 

0271  128  FORMAT! 15,17, I9,2FI2*2, 2F1 1*2,/) 

0272  129  FORMAT<*  NO  OF  INCIDENCES  OF  D.S.(*,l6,/> 

0273  200  FORMAT! /  *  STYPE  1  FOR  DATA  LISTING  f  *) 

0274  201  FORMAT( 12) 

0275  202  FORMAT(/* STYPE  CODE,  TIME  RANGE  »  *) 

0276  204  FORMAT!///,  I  7X,  *  MONITOR  NO.*, 15,/) 

0277  205  FORMAT!/*  S!R,  *,Il,»)  -  *,  F7.2,21X,  *S!M,  *,  1 1,  *)  -*,F7.2> 

0278  203  FORMAT! 1 6, FI  2*  2)  * 

■279  131  FORMAT! ///20X, ’INVALID  DATA*,///) 

0280  140  FORMAT! IX, 13, 3X, 13, 3X, 1 3, 43X, 2F6* 2, /) 

0281  210  FORF-AT  !/**NUMBER  OF  FILE  FILES  7  ’) 

0282  211  FORMAT  (14) 

0283  212  FORMAT  (//////////////////*  SNEXT  FILE  7  *) 

0284  213  FORMAT  !//**FILE  FILE  *  *) 

0265  214  FORMAT! /•*****♦********+*♦****************• ) 

0286  215  FORMAT! / 9  DIVE  FILE  t  *,6A1) 

0287  216  FORMAT  !/////////) 

0288  217  FORMAT  !//* I  I  I  I  I  I  I  1  I  I  I  I  I  I  I  1  I  I  1  I  I  I  I  I  1 1  I  1  I  I  I  II  *) 

0289  300  FORMAT! 1 5,/, 5A1> 

0290  301  FORMAT! I  6, /, 45A1 ) 

0291  302  FORMAT! 7! 5A I, IX)) 

0292  303  FORMAT! 4! 5A1, IX)) 

0293  304  FORMAT! F7. 2, 31 3) 

0294  305  FORMAT! 2F6. 2) 

0295  306  FORMAT! F6. 2, 14) 

0296  307  FORMAT! 14, F6. 1) 

0297  308  FORMAT! 21 6) 

0298  309  FORMAT! 14, F10. 2) 

0299  310  FORMAT! 4F1 0  *  2) 

0300  311  FORMAT! 7 1A1) 

0301  312  FORMAT! 416) 
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'9320 
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313  FORMAT! 16) 

400  FORMAT<  /  1  FILE . .  ’#  5AI /) 

401  FORMAT! ’  DIVE  SERIES*  '#  IX#  '#'»  16#  '<  *#45A1#/) 

402  FORMAT!  *  PROFILE*....  ‘*#’#*#16#’#  ’#45A1#/) 

403  FORMAT!  *  DIVEi .  S'#', 16#*#  *#45AI#/> 

404  FORMAT!*  DIVERl .  *#*#»#  16#*#  *#4SAI#/> 

405  FORMAT!*  ASSOCIATED  DUD0  FlLESl  »#7!lX#5Al>) 

406  FORMAT!*  AUXILLIARY  FILESf  ’# 5X# 4< IX# 5A1 >/) 

407  FORMAT!*  TIME  OF  DAY* . *#F7.2#5X# 

1 *DATE  OF  DIVEi.#..  ’#3!1X#I2)) 

408  FORMAT!  *  WEIGHT*... i .  *#F6.2#5X# 

1 ’HEIGHT* .  *#F6.2) 

409  FORMAT! *  FAT  COMPOSITION*.  *#F6.2#5X# 

l’TYPE  OF  DIVE* ....'# 6X# 14) 

410  FORMAT! *  ENVIRONMENT* .  *#I4#5X# 

1  ‘TEMPERATURE . ' #  4X #  F 6 *  1  ) 

411  FORMAT!*  TYPE  OF  WORK*....  *#I4#5X# 

1 ’QUANTITY  OF  WORK* *# 4X# F6* 1 ) 

412  FORMA  ! *  TAPE  RECORDER  NO*  *#I6#SX# 

1  ‘TAPE  NO* . ’ #  4X#  I  6) 

413  FORMAT!  *  DEPTH  CODE .  *#I4#5X# 

1 ’BOTTOM  DEPTH *....'#  4X#  F6« 1 ) 

414  FORMAT!’  TIME  CODE* .  '#I4#5X# 

1 ’TIME  OF  PROF  ALT* ’ # F 1 0 . 2# / > 

415  FORMAT! ’  T! BEG ) * .......*# F 1 0 . 2# / *  T! ARRIVAL >*...’# F 1 0 . 2# 

1/'  T! BEG  DECOMP)* ’# FI0. 2/’  TC END  DECOMP) *’# F10 .2# /) 

416  FORMAT! IX# 71 A1 #/) 

417  FORMAT! *  MONITOR  NOS :  ’ # 4! IX# I  6) # / ) 

418  FORMAT!*  TOTAL  NO  OF  EVAL t * # I  6# / ) 

END 


